unit passazhiropotok_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TemplateUnit, StdCtrls, DB, Mask, DBCtrls, ADODB, ExtCtrls,
  AppEvnts, JvComponentBase;

type
  Tpassazhiropotok_Form = class(TTemplateForm)
    pnlPassazhiropotok: TPanel;
    tblMetro: TADOTable;
    tblMetroid: TAutoIncField;
    tblMetrosnapshot1: TBlobField;
    tblMetrolnameOutput: TWideStringField;
    tblMetrosnameOutput: TWideStringField;
    tblMetroexit1Output: TWideStringField;
    tblMetroexit2Output: TWideStringField;
    tblMetroexit3Output: TWideStringField;
    tblMetrotblexit1Output: TFloatField;
    tblMetrotblexit2Output: TFloatField;
    tblMetrotblexit3Output: TFloatField;
    tblMetrorasOutput: TWideStringField;
    tblMetroravOutput: TWideStringField;
    tblMetronpOutput: TIntegerField;
    tblMetrowoutOutput: TWideStringField;
    tblMetrowinOutput: TWideStringField;
    tblMetrointpOutput: TIntegerField;
    tblMetrointsrOutput: TIntegerField;
    tblMetrolname: TWideStringField;
    tblMetrosname: TWideStringField;
    tblMetroP1: TIntegerField;
    tblMetroP2: TIntegerField;
    tblMetrok1: TIntegerField;
    tblMetrok2: TIntegerField;
    tblMetrok3: TIntegerField;
    tblMetrosst: TFloatField;
    tblMetrospl: TFloatField;
    tblMetrobpr: TFloatField;
    tblMetrointp: TIntegerField;
    tblMetrointsr: TIntegerField;
    tblMetroStation_type: TIntegerField;
    tblMetrosname1: TWideStringField;
    tblMetrosname2: TWideStringField;
    tblMetrolper: TFloatField;
    tblMetrolas: TFloatField;
    tblMetrohper: TFloatField;
    tblMetrospt: TFloatField;
    tblMetroMetroStation_type: TWideStringField;
    tblMetror_type: TIntegerField;
    tblMetrotblst1Output: TFloatField;
    tblMetrotblst2Output: TFloatField;
    tblMetrocity: TWideStringField;
    tblMetroChislo_Eskalatorov: TIntegerField;
    tblMetroChislo_Vihodov: TIntegerField;
    tblMetroNpU: TIntegerField;
    tblMetroP1U: TIntegerField;
    tblMetroP2U: TIntegerField;
    tblMetroPvhU: TIntegerField;
    tblMetroIntpU: TIntegerField;
    tblMetroNpV: TIntegerField;
    tblMetroP1V: TIntegerField;
    tblMetroP2V: TIntegerField;
    tblMetroPvhV: TIntegerField;
    tblMetroIntpV: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit_P1U: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    btnOk: TButton;
    Label11: TLabel;
    Label12: TLabel;
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passazhiropotok_Form: Tpassazhiropotok_Form;

implementation

uses
  DMUnit;

{$R *.dfm}

procedure Tpassazhiropotok_Form.btnOkClick(Sender: TObject);
begin
  inherited;
  dm.tblMetro.Edit;
  dm.tblMetro.Post;

end;

end.
